home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / ML_Add_Bytes_To_Bank.amos / ML_Add_Bytes_To_Bank.amosSourceCode
AMOS Source Code  |  1995-12-30  |  495b  |  25 lines
  1. '
  2. '************************************
  3. '
  4. 'ADD AMOUNT OF BYTES TO A MEMORY BANK
  5. '------------------------------------
  6. '
  7. '     BY MALCOLM LAVERY ï¿½1994
  8. '
  9. '************************************
  10. '
  11. '
  12. Procedure _ADD_TO_BANK[_BANK,AMOUNT]
  13.    '
  14.    L=Length(_BANK)
  15.    '
  16.    Reserve As Chip Work 10,L+AMOUNT
  17.    '
  18.    Copy Start(_BANK),Start(_BANK)+Length(_BANK) To Start(10)
  19.    '
  20.    Reserve As Chip Data _BANK,Length(10)
  21.    Copy Start(10),Start(10)+Length(10) To Start(_BANK)
  22.    '
  23.    Erase 10
  24.    '
  25. End Proc